home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
graphic
/
tpega.zip
/
GPPLOT.P
< prev
next >
Wrap
Text File
|
1986-04-29
|
1KB
|
22 lines
{ }
{ EGA Graphic Primitive for Turbo Pascal 3.01A, Version 01FEB86. }
{ (C) 1986 by Kent Cedola, 2015 Meadow Lake Ct., Norfolk, VA, 23518 }
{ }
{ Description: Plot a pixel on the ECD in 640x350 mode, use GPCOLOR }
{ to control the color and GPMERGE to control the combining of bits. }
{ This procedure will set the current (X,Y) coordinates. }
{ }
procedure GPPLOT(X,Y: Integer);
begin
inline
($C7/$06/GDC_FLG/>$00 /$8B/$46/$04 /$3B/$06/GDVW_Y1 /$7C/$15
/$3B/$06/GDVW_Y2 /$7F/$0F /$8B/$7E/$06 /$3B/$3E/GDVW_X1 /$7C/$06
/$3B/$3E/GDVW_X2 /$7E/$08 /$C7/$06/GDC_FLG/>$02 /$EB/$49 /$A3/GDCUR_Y
/$D1/$E0 /$D1/$E0 /$03/$46/$04 /$05/$A000 /$8E/$C0 /$89/$3E/GDCUR_X
/$8B/$CF /$D1/$EF /$D1/$EF /$D1/$EF /$BA/$03CE /$8A/$26/GDMERGE /$B0/$03
/$EF /$B8/$0205 /$EF /$B0/$08 /$EE /$42 /$B0/$80 /$80/$E1/$07 /$D2/$C8
/$EE /$26/$8A/$05 /$A0/GDCOLOR /$26/$88/$05 /$B0/$FF /$EE /$4A /$B8/>$05
/$EF /$B0/$03 /$EF);
end;